home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Guidemac 2
/
Guidemac 2.iso
/
P Ingénierie
/
XTensions de démonstration
/
versions de démonstration
/
InpositionLite.cpt
/
INposition Lite 1.01 dÈmo
/
INposition Lite™ 1.01 dÈmo.rsrc
/
STR#_31001.txt
< prev
next >
Wrap
Text File
|
1994-03-02
|
445b
|
16 lines
/setclp known{/setclp{np 0 0 m
ct1 149 get 0 ne{ct1 0 ct1 149 get getinterval cvx exec}if
ct2 ctz get 256 mul ct2 ctz 1 add get add dup 0 ne
{dup ct2 0 3 -1 roll getinterval cvx exec}if pop cps np mif}bind store}if
end}if
/kp known{/kp{ct1 0 2 index length 2 index 149 2 index
put getinterval copy cvx exec mtx1 currentmatrix
pop cps np mif}bind store}if
dup dup dup begin
/ct1 known{/ct1 150 string store ct1 149 0 put}if
where {pop